www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/dispuser2.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<!--#include file=inc/userfun.asp-->
<!--#include file=inc/template.asp-->
<%
'=========================================================
' File: dispuser.asp
' Version:3.0
' Date: 2005-11-5
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
dim username
dim userclass
username=trim(checkStr(request("Username")))
if username="" or strLength(request("Username"))>20 then
errmsg=errmsg+"<br>"+"<li>用户名不能为空。"
founderr=true
end if
if Cint(GroupSetting(3))=0 then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览会员资料的权限！"
response.Write(Errmsg)
response.end
end if
call nav()
stats="查询"&username&"个人资料"
founderr=false
if founderr then
call Mslove_error()
else
if username="" then
ErrMsg=Errmsg+"<br>"+"<li>错误的参数。"
founderr=true
end if
dim Stockmoney,bankmoney,userinfo,nophoto
dim realname,character,personal,country,province,city,shengxiao,Userstars
dim UserIM
dim homepage,Oicq,Icq,Msn,Aim,Yahoo,Uc
dim Userfriendinfo,Pheight,Pweight,figure,TemplateId
dim Ublood,UFolk,Ubelief,Uoccupation,Udutytype,Umarital,Ueducation,Ucollege
dim Uuserphone,Uaddress
dim Uhealth,Uweight,Ufigure,Umylook,Ufug,Uincome,Ualcohol,Uhouses,Ulanguage
dim Uphoto,Uphototitle,Uimages,UWealth,Uvip,Uep,Ucp,Upower,Udiarynum
dim Upics,Uhits,ULastlogin,Uclass,Usex,Ubirth,Umail,Ulock,Loginnum
dim Sqlt,rst,Show_Template,OnlineTime,Ostat,Userwife
nophoto="images/nophoto.gif"
set rs=server.createobject("adodb.recordset")
sql="select Userphoto,userclass,UserIM,Userheight,TemplateId,UserInfo,Userfriends,Visual,UserFace,userWealth,Uservip,userEP,userCP,userPower,UserPics,Userdiary,UserViews,lastlogin,userclass,Usersex,Userbirthday,UserEmail,LockUser,UserLogins,Userwife from [Ms_User] where username='"&UserName&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在"
founderr=true
call Mslove_error()
response.end
end if
userclass=rs("userclass")
Uphoto=rs("Userphoto")
UserIM=rs("UserIM")
Pheight=rs("Userheight")
'TemplateId=rs("TemplateId")
UserIM=split(UserIM,"|||")
homepage=UserIM(0)
Oicq=UserIM(1)
Icq=UserIM(2)
Msn=UserIM(3)
Aim=UserIM(4)
Yahoo=UserIM(5)
Uc=UserIM(6)
userinfo=rs("UserInfo")
userinfo=split(userinfo,"|||")
realname=userinfo(0)
character=userinfo(1)
personal=userinfo(2)
country=userinfo(3)
province=userinfo(4)
city=userinfo(5)
shengxiao=userinfo(6)
Userstars=userinfo(7)
Ublood=userinfo(8)
UFolk=userinfo(9)
Ubelief=userinfo(10)
Uoccupation=userinfo(11)
Udutytype=userinfo(12)
Umarital=userinfo(13)
Ueducation=userinfo(14)
Ucollege=userinfo(15)
Uuserphone=userinfo(16)
Uaddress=userinfo(17)
Userfriendinfo=split(rs("Userfriends"),"|||")
Uhealth=Userfriendinfo(0)
Uweight=Userfriendinfo(1)
Ufigure=Userfriendinfo(2)
Umylook=Userfriendinfo(3)
Ufug=Userfriendinfo(4)
Uincome=Userfriendinfo(5)
Ualcohol=Userfriendinfo(6)
Uhouses=Userfriendinfo(7)
Ulanguage=Userfriendinfo(8)
Stockmoney=0
bankmoney=0
'if TemplateId="" then
'TemplateId=1
'end if
Uphototitle=rs("Visual")
Uimages=rs("UserFace")
Uwealth=rs("userWealth")
Uvip=rs("Uservip")
Uep=rs("userEP")
Ucp=rs("userCP")
Upower=rs("userPower")
Upics=rs("UserPics")
Udiarynum=rs("Userdiary")
Uhits=rs("UserViews")
Ulastlogin=rs("lastlogin")
Uclass=rs("userclass")
Usex=rs("Usersex")
Ubirth=rs("Userbirthday")
Umail=rs("UserEmail")
Ulock=rs("LockUser")
Loginnum=rs("UserLogins")
Userwife=rs("Userwife")
'Sqlt="select Template from [Ms_Template] where id="&TemplateId
'set rst=conn.execute(Sqlt)
'if not (rst.eof and rst.bof) then
'Show_Template=rst("Template")
'End If
'rs.close
set rs=nothing
set rs=conn.execute("select stats,startime from Ms_online where username='"&UserName&"'")
if rs.eof and rs.bof then
Ostat=""
OnlineTime="状态：[离线]"
else
Ostat="当前位置：["&rs(0)&"]"
OnlineTime="状态：[在线：" & datediff("n",rs(1),Now()) & "Mins]"
end if
rs.close
set rs=nothing
'Call Replace_PublicTag(Show_Template)
conn.execute("update Ms_user set UserViews=UserViews+1 where Username='"&UserName&"'")
if founderr then call Mslove_error()
call activeonline()
end if
%>
<link href="STYLE1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE3 {font-weight: bold}
-->
</style>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td align="middle"><br />
<table cellspacing="0" cellpadding="0" width="711" bgcolor="#d8d8d8" border="0">
<tbody>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff" height="40"><table cellspacing="5" cellpadding="5" width="100%" border="0">
<tbody>
<tr>
<td bgcolor="#eaf5fc" height="22"><font
color="#000000"><strong>小贴士：</strong></font>
<!--<font color="#000000">搜索更多会员的方法</font>-->
网站每次搜索最多只显示200个会员，要看更多，可重点“查找”按钮（结果会随机变化），或将搜索条件细化。</FONT></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="750" border="0">
<tbody>
<tr>
<td valign="top" width="172" height="491"><table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8"
border="0">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td valign="center" align="middle" colspan="3"><br />
<table cellspacing="0" cellpadding="0" width="100%"
border="0">
<tbody>
</tbody>
</table>
<table height="156" cellspacing="1" cellpadding="1" width="126"
bgcolor="#cfcfcf" border="0">
<tbody>
<tr> </tr>
</tbody>
</table>
<table cellspacing="5" cellpadding="0" align="center" bgcolor="#dec1fa" border="0">
<tbody>
<tr>
<td valign="center" align="middle" bgcolor="#ffffff"><a href=photolist.asp?action=userp&username="&username&" target=_blank><%if Uphoto<>"" then
response.Write("<img src="&Uphoto&" width=""110"" height=""140"" border=""0""></a>")
else
response.Write("<img src="&nophoto&" width=""110"" height=""140"" border=""0""></a>")
end if%></a></td>
</tr>
</tbody>
</table>
<table cellspacing="0" cellpadding="0" width="126" border="0">
<tbody>
</tbody>
</table></td>
</tr>
<tr>
<td> </td>
<td valign="top"><div align="center">人气指数：<%=Uhits%></div></td>
<td> </td>
</tr>
<tr>
<td width="5%"> </td>
<td width="90%" valign="top"><table width="100%" border="0" cellpadding="0">
<tr>
<td height="15">金币：<img src="Skins/Default/yuanbao.gif" width="11" height="10" align="absmiddle" /> <%=Uwealth%></td>
<td height="15">魅力：<img src="Skins/Default/meili.gif" width="11" height="10" align="absmiddle" /> <%=Ucp%></td>
</tr>
<tr>
<td height="15">经验：<img src="Skins/Default/jingyan.gif" width="11" height="10" align="absmiddle" /> <%=Uep%></td>
<td height="15">威望：<img src="Skins/Default/weiwang.gif" width="11" height="10" align="absmiddle" /> <%=Upower%></td>
</tr>
</table>
<br /></td><td width="5%"> </td>
</tr>
<tr>
<td> </td>
<td width="90%" valign="top"><table cellspacing="0" cellpadding="0" width="100%"
border="0">
<tbody>
<tr valign="top" align="left">
<td colspan="2"><img height="8" src="" width="10" /></td>
</tr>
<tr class="12x18">
<td align="middle" colspan="2" height="30">在线留言</td>
</tr>
<tr>
<td valign="center" align="middle" colspan="2" height="30">发送短信</td>
</tr>
<tr>
<td valign="center" align="middle" colspan="2" height="30">加为好友</td>
</tr>
<tr>
<td valign="center" align="middle" colspan="2" height="30">加入收藏</td>
</tr>
<tr>
<td valign="top" align="left" colspan="2"><img
src="file:///D|/temp/茶壶的个人资料_files/grzl_01.gif" /></td>
</tr>
<tr align="left">
<td valign="top" colspan="2"><img height="8" src=""
width="10" /></td>
</tr>
<tr>
<td valign="center" align="middle"><img height="11"
alt="" src="images/grzl_18.gif"
width="11" /></td>
<td valign="center" align="left"><span class="12x20"><a class="small_top" href=photolist.asp?action=userp&username=<%=username%> target="subiframe">个人相册</a>：<%=Upics%>张</span></td>
</tr>
<tr>
<td valign="center" align="middle"><img height="11"
alt="" src="images/grzl_18.gif"
width="11" /></td>
<td valign="center" align="left"><span class="12x20"><a
class="small_top"
href="diarylist.asp?action=name&username=<%=username%>"
target="subiframe">心情日记</a>：<%=Udiarynum%>篇</span></td>
</tr>
<tr>
<td valign="center" align="middle"><img height="11"
alt="" src="images/grzl_18.gif" width="11"
align="absmiddle" /></td>
<td valign="center" align="left"><span class="12x20"><a
class="small_top"
href="http://www.91yuan.com/operate/userview/user_sound_mpg.asp?id_r=1784025&levels="
target="subiframe"><font
color="#666666">声音影像</font></a>：0个</span></td>
</tr>
<tr>
<td valign="center" align="middle"><img height="11"
alt="" src="images/grzl_18.gif" width="11"
align="absmiddle" /></td>
<td valign="center" align="left"><span class="12x20"><a
class="small_top"
href="http://www.91yuan.com/operate/userview/user_article.asp?id_r=1784025&levels="
target="subiframe"><font
color="#666666">站内言论</font></a>：0篇</span></td>
</tr>
</tbody>
</table></td>
<td> </td>
</tr>
</tbody>
</table>
<br />
<br /></td>
</tr>
</tbody>
</table>
<span
class="12x18"><span class="STYLE3"><br />
</span></span>
<table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8"
border="0">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table cellspacing="0" cellpadding="3" width="100%" border="0">
<tbody>
<tr>
<td align="middle"
colspan="2"> <b>该会员是否真诚交友？</b> </td>
</tr>
<tr>
<td width="50%"> 是：0票</td>
<td width="50%">不是：0票<br /></td>
</tr>
<tr>
<td class="12x20" align="middle" colspan="2"><a
class="Black_UnderLine"
onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;"
href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">我要投票</a> <a
class="Black_UnderLine"
onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;"
href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">投票说明</a> </td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
<br />
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td><a
href="http://www.91yuan.com/shop/index.asp?link=Main.asp?re_id=1784025"
target="_blank"></a></td>
</tr>
</tbody>
</table>
<br />
<br />
<table cellspacing="0" cellpadding="0" width="100%" bgcolor="#d8d8d8"
border="0">
<tbody>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff" height="40"><a
class="orange_UnderLine"
href="http://www.91yuan.com/help/beginner/Safe.htm"
target="_blank"></a> </td>
</tr>
</tbody>
</table></td>
<td width="9"><br /></td>
<td valign="top" width="561"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr valign="top" align="left" bgcolor="#ffffff">
<td width="50%" height="30" valign="center"><%if Usex=1 then
response.Write("<img src=skins/21cn/boy.gif width=15 align=absMiddle border=0>")
else
response.write("<img src=skins/21cn/girl.gif width=15 align=absMiddle border=0>")
end if%> <%=username%></td>
<td width="50%" valign="center" bgcolor="#ffffff"> </td>
</tr>
</tbody>
</table>
<table cellspacing="10" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff"><table width="100%"
border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table width="100%" border="0">
<tr>
<td width="16%">昵 称：</td>
<td width="35%"><%=realname%></td>
<td width="17%">会员等级：</td>
<td width="32%"><%=iifV(Uvip)%></td>
</tr>
<tr>
<td>性 别：</td>
<td><%=iif(Usex,"男","女")%>
<td>年 龄：</td>
<td><%if Ubirth<>"" then
response.Write(datediff("yyyy",Ubirth,Now())&"岁")
else
response.Write("未知")
end if%></td>
</tr>
<tr>
<td>身 高：</td>
<td><%=iimg(Pheight,"-",htmlencode(Pheight))%>CM</td>
<td>学 历：</td>
<td><%=iimg(Ueducation,"未填",htmlencode(Ueducation))%></td>
</tr>
<tr>
<td>职 业：</td>
<td><%=iimg(Uoccupation,"未填",htmlencode(Uoccupation))%></td>
<td>职称：</td>
<td><%=iimg(Udutytype,"未填",htmlencode(Udutytype))%></td>
</tr>
<tr>
<td>所在地区：</td>
<td><%=iimg(province,"未填",htmlencode(province))%><%=iimg(city,"未填",htmlencode(city))%></td>
<td>户口地区：</td>
<td><%=iimg(province,"未填",htmlencode(province))%><%=iimg(city,"未填",htmlencode(city))%></td>
</tr>
<tr>
<td>居住情况：</td>
<td><%= %></td>
<td>购车情况：</td>
<td><%= %></td>
</tr>
<tr>
<td>收入情况:</td>
<td><%= %></td>
<td>婚姻状况：</td>
<td><%= %></td>
</tr>
<tr>
<td>健康程度：</td>
<td><%=iimg(Uhealth,"未填",htmlencode(Uhealth))%></td>
<td>相貌自评:</td>
<td><%= %></td>
</tr>
<tr>
<td>生肖：</td>
<td><%=iimg(shengxiao,"未填",htmlencode(shengxiao))%></td>
<td>血型：</td>
<td><%=iimg(Ublood,"未填",htmlencode(Ublood))%>型</td>
</tr>
<tr>
<td>民族：</td>
<td><%=iimg(UFolk,"未填",htmlencode(UFolk))%></td>
<td>信仰：</td>
<td><%=iimg(Ubelief,"未填",htmlencode(Ubelief))%></td>
</tr>
<tr>
<td>体重：</td>
<td><%=iimg(Uweight,"未填",htmlencode(Uweight))%>KG</td>
<td>体形：</td>
<td><%=iimg(Ufigure,"未填",htmlencode(Ufigure)) %></td>
</tr>
<tr>
<td>是否吸烟：</td>
<td><%= %></td>
<td>是否喝酒：</td>
<td><%= %></td>
</tr>
<tr>
<td>掌握语言：</td>
<td><%= %></td>
<td>星座：</td>
<td><%=iimg(Ubirth,"未填",astro(Ubirth))%></td>
</tr>
<tr>
<td>国家：</td>
<td><%=iimg(country,"未填",htmlencode(country))%></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>性格特征：</td>
<td colspan="3"><%=iimg(character,"未填",htmlencode(character))%></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff"><table width="100%"
border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5">
<tr>
<td width="4%"><img height="11"
alt="" src="images/grzl_18.gif"
width="11" /></td>
<td width="96%"><strong>内心独白</strong></td>
</tr>
<tr>
<td colspan="2"> <%=left(personal,100)%></td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff"><table width="100%"
border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5">
<tr>
<td width="4%"><img height="11"
alt="" src="images/grzl_18.gif"
width="11" /></td>
<td width="96%"><strong>心中的TA</strong></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td valign="top" align="middle" bgcolor="#ffffff"><table width="100%"
border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8">
<tbody>
<tr>
<td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5">
<tr>
<td width="4%"><img height="11"
alt="" src="images/grzl_18.gif"
width="11" /></td>
<td width="96%"><strong>联系方式</strong></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br /></td>
</tr>
</tbody>
</table>